unit uSelectForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uBaseGridFrame, BaseModel, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, Vcl.Menus, dxSkinsCore, Vcl.StdCtrls,
  cxButtons, Vcl.ExtCtrls;

type
  TSelectForm = class(TForm)
    Panel1: TPanel;
    OkBtn: TcxButton;
    CancelBtn: TcxButton;
  private
    { Private declarations }
    mFrame: TBaseGridFrame;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; frm: TBaseGridFrameClass);
      reintroduce;
    destructor Destroy; override;

    procedure getSelectedRow(row: TBaseModel);
  end;

var
  SelectForm: TSelectForm;

implementation

{$R *.dfm}
{ TSelectForm }

constructor TSelectForm.Create(AOwner: TComponent; frm: TBaseGridFrameClass);
begin
  inherited Create(AOwner);
  mFrame := frm.Create(self);

  mFrame.Parent := self;
  mFrame.Align := alclient;
  mFrame.Show;

end;

destructor TSelectForm.Destroy;
begin

  inherited;
end;

procedure TSelectForm.getSelectedRow(row: TBaseModel);
begin
  mFrame.getSelectedRow(row);
end;

end.
